home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / qdial13.zip / GETCITY.SCR < prev    next >
Text File  |  1991-06-01  |  7KB  |  283 lines
  1. ;                 QDIAL PC PURSUIT DIALER V1.3: GETCITY.SCR
  2. ;                          by Mario Dennis
  3. ;  After logging on to  PC Pursuit local node, connects to remote outdial.
  4. ;
  5. ; Modify these assigment statements to reflect your settings
  6.  
  7.  
  8. ASSIGN 2 ""                              ; PCP userid
  9. ASSIGN 3 ""                              ; PCP password
  10. ASSIGN 4 "24"                            ; Baud rate for local Telenet
  11. ASSIGN 5 "C:\QMODEM\QMODEM.KEY"          ; Path for QModem key
  12. ASSIGN 6 "C:\QMODEM\QMODEM.FON"          ; Path for Qmodem phonebook
  13.  
  14. CLRSCR
  15. TURNOFF BS_DEL
  16. MAIN:
  17.       WINDOW 1 1 80 24                   ; Declare window
  18.       COLORBG 7                          ; Set colors
  19.       COLORFG 1
  20.       BOX 1 1 80 22
  21.       CLRSCR
  22.       COLORFG 1
  23.  
  24. NOTE  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  25. NOTE  █░░░░░░░░░░░░░░░░░░░░░░░░   Q D I A L  V 1 . 3   ░░░░░░░░░░░░░░░░░░░░░░░░░█
  26. NOTE  █░░░░░░░  P C  P U R S U I T  C I T Y / A R E A  C O D E  L I S T  ░░░░░░░█
  27. NOTE  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  28. NOTE  █ ANN ARBOR 313a ▌ GLENDALE     818 ▌ NEWARK     201  ▌ SACRAMENTO    916 █
  29. NOTE  █ ATLANTA   404  ▌ HARTFORD     203 ▌ NEW BRUNS. 908  ▌ SALT LAKE     801 █
  30. NOTE  █ AUSTIN    512  ▌ HEMPSTEAD    516 ▌ NEW YORK   212  ▌ SANTA ANA     714 █
  31. NOTE  █ BOSTON    617  ▌ HOUSTON      713 ▌ OAKLAND    415a ▌ SAN DIEGO     619 █
  32. NOTE  █ CHICAGO   312  ▌ INDIANAPOLIS 317 ▌ ORLANDO    407  ▌ SAN FRANCISCO 415 █
  33. NOTE  █ CLEVELAND 216  ▌ KANSAS CITY  816 ▌ PALO ALTO  408a ▌ SAN JOSE      408 █
  34. NOTE  █ COLUMBUS  614  ▌ LOS ANGELES  213 ▌ PHOENIX    602  ▌ SEATTLE       206 █
  35. NOTE  █ COLTON    714  ▌ MEMPHIS      901 ▌ PHILA.     215  ▌ ST. LOUIS     314 █
  36. NOTE  █ DALLAS    214  ▌ MIAMI        305 ▌ PITTSBURGH 412  ▌ TAMPA         813 █
  37. NOTE  █ DENVER    303  ▌ MILWAUKEE    414 ▌ PORTLAND   503  ▌ WASHINGTON    202 █
  38. NOTE  █ DETROIT   313  ▌ MINNEAPOLIS  612 ▌ RESEARCH  919  ▌░░░(P)URSUIT  BBS░░█
  39. NOTE  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
  40. NOTE  █                              (G)OODBYE                                  █
  41. NOTE  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  42.  
  43. GETCODE:
  44.         GOTOXY 25 19
  45.         DISPLAY "Enter Selection Code==>"
  46.         GET 0 4
  47.  
  48. ; Find Telenet mnemonic code for area code
  49.  
  50. IF '$0' = '201' NJNEW
  51. IF '$0' = '202' DCWAS
  52. IF '$0' = '203' CTHAR
  53. IF '$0' = '206' WASEA
  54. IF '$0' = '212' NYNYO
  55. IF '$0' = '213' CALAN
  56. IF '$0' = '214' TXDAL
  57. IF '$0' = '215' PAPHI
  58. IF '$0' = '216' OHCLE
  59. IF '$0' = '303' CODEN
  60. IF '$0' = '305' FLMIA
  61. IF '$0' = '312' ILCHI
  62. IF '$0' = '313' MIDET
  63. IF '$0' = '313A' MIAAR
  64. IF '$0' = '314' MOSLO
  65. IF '$0' = '317' ININD
  66. IF '$0' = '404' GAATL
  67. IF '$0' = '407' FLORL
  68. IF '$0' = '408' CASJO
  69. IF '$0' = '408A' CAPAL
  70. IF '$0' = '412' PAPIT
  71. IF '$0' = '414' WIMIL
  72. IF '$0' = '415' CASFA
  73. IF '$0' = '415A' CAOAK
  74. IF '$0' = '503' ORPOR
  75. IF '$0' = '512' TXAUS
  76. IF '$0' = '516' NYHEM
  77. IF '$0' = '602' AZPHO
  78. IF '$0' = '612' MNMIN
  79. IF '$0' = '614' OHCOL
  80. IF '$0' = '617' MABOS
  81. IF '$0' = '619' CASDI
  82. IF '$0' = '713' TXHOU
  83. IF '$0' = '714' CACOL
  84. IF '$0' = '714A' CASAN
  85. IF '$0' = '801' UTSLC
  86. IF '$0' = '813' FLTAM
  87. IF '$0' = '816' MOKCI
  88. IF '$0' = '818' CAGLE
  89. IF '$0' = '901' TNMEM
  90. IF '$0' = '908' NJNBR
  91. IF '$0' = '916' CASAC
  92. IF '$0' = '919' NCRTP
  93. IF '$0' = 'P' PURSUIT
  94. IF '$0' = 'G' QUIT
  95.  
  96.  
  97. NJNEW:
  98.         IF $0 <> '201' BADCODE
  99.         ASSIGN 1 'NJNEW'
  100.         GOTO DIALIT
  101. DCWAS:
  102.         ASSIGN 1 'DCWAS'
  103.         GOTO DIALIT
  104. CTHAR:
  105.         ASSIGN 1 'CTHAR'
  106.         GOTO DIALIT
  107. WASEA:
  108.         ASSIGN 1 'WASEA'
  109.         GOTO DIALIT
  110. NYNYO:
  111.         ASSIGN 1 'NYNYO'
  112.         GOTO DIALIT
  113. CALAN:
  114.         ASSIGN 1 'CALAN'
  115.         GOTO DIALIT
  116. TXDAL:
  117.         ASSIGN 1 'TXDAL'
  118.         GOTO DIALIT
  119. PAPHI:
  120.         ASSIGN 1 'PAPHI'
  121.         GOTO DIALIT
  122. OHCLE:
  123.         ASSIGN 1 'OHCLE'
  124.         GOTO DIALIT
  125. CODEN:
  126.         ASSIGN 1 'CODEN'
  127.         GOTO DIALIT
  128. FLMIA:
  129.         ASSIGN 1 'FLMIA'
  130.         GOTO DIALIT
  131. ILCHI:
  132.         ASSIGN 1 'ILCHI'
  133.         GOTO DIALIT
  134. MIDET:
  135.         ASSIGN 1 'MIDET'
  136.         GOTO DIALIT
  137. MIAAR:
  138.         ASSIGN 1 'MIAAR'
  139.         GOTO DIALIT
  140. MOSLO:
  141.         ASSIGN 1 'MOSLO'
  142.         GOTO DIALIT
  143. ININD:
  144.         ASSIGN 1 'ININD'
  145.         GOTO DIALIT
  146. GAATL:
  147.         ASSIGN 1 'GAATL'
  148.         GOTO DIALIT
  149. FLORL:
  150.         ASSIGN 1 'FLORL'
  151.         GOTO DIALIT
  152. CASJO:
  153.         ASSIGN 1 'CASJO'
  154.         GOTO DIALIT
  155. CAPAL:
  156.         ASSIGN 1 'CAPAL'
  157.         GOTO DIALIT
  158. PAPIT:
  159.         ASSIGN 1 'PAPIT'
  160.         GOTO DIALIT
  161. WIMIL:
  162.         ASSIGN 1 'WIMIL'
  163.         GOTO DIALIT
  164. CASFA:
  165.         ASSIGN 1 'CASFA'
  166.         GOTO DIALIT
  167. CAOAK:
  168.         ASSIGN 1 'CAOAK'
  169.         GOTO DIALIT
  170. ORPOR:
  171.         ASSIGN 1 'ORPOR'
  172.         GOTO DIALIT
  173. TXAUS:
  174.         ASSIGN 1 'TXAUS'
  175.         GOTO DIALIT
  176. NYHEM:
  177.         ASSIGN 1 'NYHEM'
  178.         GOTO DIALIT
  179. AZPHO:
  180.         ASSIGN 1 'AZPHO'
  181.         GOTO DIALIT
  182. MNMIN:
  183.         ASSIGN 1 'MNMIN'
  184.         GOTO DIALIT
  185. OHCOL:
  186.         ASSIGN 1 'OHCOL'
  187.         GOTO DIALIT
  188. CASDI:
  189.         ASSIGN 1 'CASDI'
  190.         GOTO DIALIT
  191. MABOS:
  192.         ASSIGN 1 'MABOS'
  193.         GOTO DIALIT
  194. TXHOU:
  195.         ASSIGN 1 'TXHOU'
  196.         GOTO DIALIT
  197. CACOL:
  198.         ASSIGN 1 'CACOL'
  199.         GOTO DIALIT
  200. CASAN:
  201.         ASSIGN 1 'CASAN'
  202.         GOTO DIALIT
  203. UTSLC:
  204.         ASSIGN 1 'UTSLC'
  205.         GOTO DIALIT
  206. FLTAM:
  207.         ASSIGN 1 'FLTAM'
  208.         GOTO DIALIT
  209. MOKCI:
  210.         ASSIGN 1 'MOKCI'
  211.         GOTO DIALIT
  212. CAGLE:
  213.         ASSIGN 1 'CAGLE'
  214.         GOTO DIALIT
  215. TNMEM:
  216.         ASSIGN 1 'TNMEM'
  217.         GOTO DIALIT
  218. NJNBR:
  219.         ASSIGN 1 'NJNBR'
  220.         GOTO DIALIT
  221. CASAC:
  222.         ASSIGN 1 'CASAC'
  223.         GOTO DIALIT
  224. NCRTP:
  225.         ASSIGN 1 'NCRTP'
  226.         GOTO DIALIT
  227. PURSUIT:
  228.         SEND "C PURSUIT^M"
  229.         WHEN "NOT OPERATING" NOTOPER
  230.         WAITFOR "CONNECTED"
  231.         BOX 1,1,80,24
  232.         CLRSCR
  233.         EXIT
  234.  
  235. QUIT:
  236.         SEND "HANGUP^M"                  ; Quit and tidy up
  237.         LOADKEY $5                       ; Reload default Fkeys
  238.         LOADFON $6                       ; Reload default phonebook
  239.         EXIT
  240.  
  241. DIALIT:
  242. CLRSCR
  243. SEND "C D/$1/$4,$2^M" PACE=200          ;Remove the PACE=200 command if using
  244. DELAY 100                               ;any version of Qmodem before 4.2F
  245. WAITFOR "="
  246. DELAY 200
  247. SEND "$3^M" PACE=200
  248.  
  249. TIMEOUT 15 FAILED
  250. WHEN
  251. WHEN "PLEASE RE-ENTER YOUR COMMAND." DIALIT
  252. WHEN "BUSY" MAIN
  253. WHEN "?" MAIN
  254. WAITFOR "CONNECTED"
  255. CLRSCR
  256. DELAY 1000
  257. SEND "ATZ^M"
  258. DELAY 500
  259. WAITFOR "OK"
  260. BEEP 1200
  261. CLRSCR
  262. NOTE                       ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  263. NOTE                       █  Connected to Outdial $1   █
  264. NOTE                       █                               █
  265. NOTE                       █         ALT-D TO DIAL         █
  266. NOTE                       █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
  267. EXIT
  268.  
  269. FAILED:
  270. GOTOXY 15 25
  271. DISPLAY "CONNECTION FAILED"
  272. DELAY 5000
  273. GOTO MAIN
  274.  
  275. BADCODE:
  276. BEEP 100
  277. BEEP 100
  278. GOTO MAIN
  279.  
  280. NOTOPER:
  281. DELAY 5000
  282. GOTO MAIN
  283.